home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib08.dsk
/
ZAP LOADER.bas
< prev
Wrap
BASIC Source File
|
2023-02-26
|
3KB
|
53 lines
1 REM **********************
2 REM * ZAP LOADER *
3 REM * BY JIM GORDON *
4 REM * COPYRIGHT (C) 1982 *
5 REM * BY MICRO-SPARC INC *
6 REM * LINCOLN, MA. 01773 *
7 REM **********************
10 D$ = CHR$(4)
12 TEXT : PRINT
14 HOME
15 REM
16 REM IS INTEGER LOADED?
17 REM
20 POKE 768,0: POKE 769,173: POKE 770,128: POKE 771,192: POKE 772,173:
24 POKE 773,0: POKE 774,208: POKE 775,205: POKE 776,38: POKE 777,3:
26 POKE 778,208: POKE 779,22: POKE 780,173: POKE 781,1: POKE 782,208:
30 POKE 783,205: POKE 784,39: POKE 785,3: POKE 786,208: POKE 787,14:
34 POKE 788,173: POKE 789,2: POKE 790,208: POKE 791,205: POKE 792,40:
36 POKE 793,3: POKE 794,208: POKE 795,6: POKE 796,173: POKE 797,41:
40 POKE 798,3: POKE 799,141: POKE 800,0: POKE 801,3: POKE 802,173:
44 POKE 803,129: POKE 804,192: POKE 805,96: POKE 806,169: POKE 807,32:
46 POKE 808,141: POKE 809,13:
50 CALL 769
52 REM IF INTEGER LOADED GOTO 310
55 IF PEEK(768) = 13 THEN GOTO 310
80 REM --POKE LANGUAGE CARD FINDER
90 POKE 768,0: POKE 769,173: POKE 770,0: POKE 771,224: POKE 772,72: POKE 773,173: POKE 774,129: POKE 775,192: POKE 776,104:
95 POKE 777,72: POKE 778,205: POKE 779,0: POKE 780,224: POKE 781,208: POKE 782,35: POKE 783,173: POKE 784,131: POKE 785,192:
100 POKE 786,173: POKE 787,131: POKE 788,192: POKE 789,169: POKE 790,165: POKE 791,141: POKE 792,0: POKE 793,208: POKE 794,205:
105 POKE 795,0: POKE 796,208: POKE 797,208: POKE 798,19: POKE 799,74: POKE 800,141: POKE 801,0: POKE 802,208: POKE 803,205:
110 POKE 804,0: POKE 805,208: POKE 806,208: POKE 807,10: POKE 808,173: POKE 809,129: POKE 810,192: POKE 811,173: POKE 812,129:
115 POKE 813,192: POKE 814,169: POKE 815,1: POKE 816,208: POKE 817,2: POKE 818,169: POKE 819,0: POKE 820,141: POKE 821,0:
120 POKE 822,3: POKE 823,104: POKE 824,205: POKE 825,0: POKE 826,224: POKE 827,240: POKE 828,3: POKE 829,173: POKE 830,128:
125 POKE 831,192: POKE 832,96:
155 CALL 769
160 IF PEEK(768) < >1 THEN 250
170 REM
180 REM --IF THERE, LOAD INTG AND PA#1
190 REM
200 VTAB 10: PRINT "(LOADING INTEGER INTO LANGUAGE CARD)"
210 PRINT D$;"BLOAD INTBASIC,A$D000"
220 REM --WRITE PROTECT THE CARD
230 A = PEEK( -16254): REM $C082
240 GOTO 310
250 REM
260 REM --NO CARD OR CAN'T RELOAD
270 REM
280 IF PEEK(768) = 0 THEN GOTO 310
290 PRINT : PRINT "...LANGUAGE CARD CANNOT BE RELOADED": PRINT " UNTIL THE SYSTEM IS REBOOTED..."
300 END
310 HOME
320 VTAB 2
330 PRINT "BOOT COMPLETE - ZAP LOADER FROM NIBBLE!!"